%
%   Draws a heart.
%
\def\pset(#1,#2){\rlap{\kern#1sp\raise#2sp\hbox{/}}}
\newcount\x\newcount\y\newcount\ta\newcount\tb\newcount\div
\newcount\fini\newdimen\radius
%
%   Initialize to draw the top part.
%
\radius=1in
\x=\radius
\y=0
\div=200
%
%   Now, the main loop.
%
\hbox{\bf
\loop
\tb=\radius\multiply\tb by2
\ta=\radius\advance\ta by\x
\pset(\ta,\y)%
\advance\ta by\tb
\pset(\ta,\y)%
\ta=\radius\advance\ta by-\x
\pset(\ta,\y)%
\advance\ta by\tb
\pset(\ta,\y)%
\ta=\x
\divide\ta by\div
\tb=\ta
\ta=\y
\divide\ta by\div
\advance\y by\tb
\advance\x by-\ta
\ifnum\x>0\repeat
\fini=\radius
\multiply\fini by2
\multiply\div by4
\multiply\radius by4
\x=\radius\y=0
\loop
\pset(\x,\y)%
\ta=\radius\advance\ta by-\x
\pset(\ta,\y)%
\ta=\x
\divide\ta by\div
\tb=\ta
\ta=-\y
\divide\ta by\div
\advance\y by-\tb
\advance\x by-\ta
\ifnum\x>\fini\repeat
}
\bye
